home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 21.asm < prev    next >
Assembly Source File  |  2000-04-02  |  688b  |  29 lines
  1. * 21.asm    introduce IncAll.i    version 0.00   1.9.97
  2.  
  3.  bra Start                 ;go to cold start
  4.  
  5.  include 'IncAll.i'        ;get all Amiga OS3.1 FD's and .i's
  6.  
  7. intname: dc.b 'intuition.library',0
  8.  ds.w 0
  9. intbase: ds.l 1
  10.  
  11. Start:
  12.  move.l _AbsExecBase,a6   ;open intuition.library
  13.  lea intname,a1
  14.  moveq #37,d0             ;at least release 2.04
  15.  jsr _LVOOpenLibrary(a6)
  16.  move.l d0,intbase
  17.  beq.s Abort              ;go if can't open
  18.  move.l intbase,a6
  19.  sub.l a0,a0
  20.  jsr _LVODisplayBeep(a6)  ;beep screens
  21.  move.l a6,a1
  22.  move.l _AbsExecBase,a6
  23.  jsr _LVOCloseLibrary(a6) ;close intuition.library
  24.  clr.l d0                 ;quit good
  25.  rts
  26. Abort:
  27.  moveq #-1,d0             ;quit bad
  28.  rts
  29.